<%
Dim Action,WhereSql,OrderSql,Order,PageInfo,Title,Page_Url
If Not MNBoard.Founduser Then MNBoard.GoToErr(10)
Order=Request.querystring("Order")
Action=Lcase(Request.querystring("Action"))
If Request.QueryString("page") > 1 Then
Page_Url = "&Page="&Request.QueryString("page")
Else
Page_Url = ""
End If
If Action="today" Then
MNBoard.Head "UserList.asp?Action="&Action&"&Order="&Order&Page_Url,"","今日到访会员"
WhereSql="IsDel=0 And DATEDIFF('d',[LastTime],'"&MNBoard.NowBbsTime&"')<1"
Else
MNBoard.Head "UserList.asp?Action="&Action&"&Order="&Order&Page_Url,"","查看用户列表"
WhereSql="IsDel=0"
End If
Select Case Action
Case"sex"
OrderSql="Sex"
Case"coin"
OrderSql="Coin"
Case"essay"
OrderSql="EssayNum"
Case"mark"
OrderSql="Mark"
Case"regtime"
OrderSql="RegTime"
Case"grade"
OrderSql="GradeFlag"
Case else
OrderSql="ID"
End select
IF Order="" Then OrderSql =OrderSql&" Desc"
ShowListTop()
ShowUserList()
MNBoard.Footer()
Set MNBoard =Nothing
Sub ShowListTop()
Response.Write"
"
End Sub
Sub ShowUserList()
Dim P,Page,arr_Rs,i,Temp,S,PInfo,BgColor
Page = Request.QueryString("page")
Set P = New Cls_PageView
P.strTableName = "[i_User]"
P.strPageUrl = "?Action="&Action&"&Order="&Order
P.strFieldsList = "Name,Sex,Mail,EssayNum,Coin,Mark,RegTime,GradeID,GradeFlag"
P.strCondiction = WhereSql
P.strOrderList = OrderSql
'P.CountSQL=200'为减轻服务器负担，只显示前200名
P.strPrimaryKey = "ID"
P.intPageSize = 40
P.intPageNow = Page
P.strCookiesName = "User_List"&Action'客户端记录总数
P.Reloadtime=10'每10分钟更新Cookies
P.strPageVar = "page"
P.InitClass
Arr_Rs = P.arrRecordInfo
PInfo = P.strPageInfo
page=P.intPageNow
Set P = nothing
S="
用户名
性别
E-mail
发帖数
金钱
积分
注册时间
等级
"
If IsArray(Arr_Rs) Then
For i = 0 to UBound(Arr_Rs, 2)
If I mod 2=0 Then Bgcolor="background:"&MNBoard.SkinsPIC(1) Else Bgcolor=""
If Arr_Rs(1,i) Then Temp="帅哥" Else Temp="靓女"
S=S&"